home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 46 / Amiga Format CD46 (1999-10-20)(Future Publishing)(GB)[!][issue 1999-12].iso / -in_the_mag- / reader_requests / scilab / tests / feval.dia.ref < prev    next >
Text File  |  1999-09-16  |  402b  |  20 lines
  1.  
  2. deff('[z]=f(x,y,t)','z=x^2+y^2+t');
  3.  
  4. res=feval(1:10,1:5,list(f,10));
  5.  
  6. res1=[];for j=1:5,res1=[res1, ((1:10).*(1:10))'+(j**2+10)*ones(10,1)];end
  7.  
  8. if res<>res1 then bugmes();quit;end
  9.  
  10. deff('[z]=f(x,y)','z=x+%i*y');
  11. Warning :redefining function: f                       
  12.  
  13.  
  14. res=feval(1:10,1:5,f);
  15.  
  16. res1=[];for j=1:5,res1=[res1, (1:10)'+%i*j*ones(10,1)];end
  17.  
  18. if res<>res1 then bugmes();quit;end
  19.  
  20.